home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CGTSL.z / CGTSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCGGGGTTTTSSSSLLLL((((3333FFFF))))                                                            CCCCGGGGTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CGTSL   - CGTSL given a general tridiagonal matrix and a right hand side
  10.      will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CGTSL(N,C,D,E,B,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      CCCC COMPLEX(N)
  23.         is the subdiagonal of the tridiagonal matrix.
  24.         C(2) through C(N) should contain the subdiagonal.
  25.         On output C is destroyed.
  26.  
  27.      DDDD COMPLEX(N)
  28.         is the diagonal of the tridiagonal matrix.
  29.         On output D is destroyed.
  30.  
  31.      EEEE COMPLEX(N)
  32.         is the superdiagonal of the tridiagonal matrix.
  33.         E(1) through E(N-1) should contain the superdiagonal.
  34.         On output E is destroyed.
  35.  
  36.      BBBB COMPLEX(N)
  37.         is the right hand side vector.  On Return
  38.  
  39.      BBBB is the solution vector.
  40.  
  41.      IIIINNNNFFFFOOOO INTEGER
  42.         = 0 normal value.
  43.         = K if the K-th element of the diagonal becomes
  44.         exactly zero.  The subroutine returns when
  45.         this is detected.  LINPACK.  This version dated 08/14/78 .  Jack
  46.      Dongarra, Argonne National Laboratory.  No Externals Fortran
  47.      ABS,AIMAG,REAL
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.